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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS ute UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
enRPOReT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ; FACILITY: MATH LIBRARY 
: "ABSTRACT: 


This module contains routine MTHSJNINT: 
Round floating-point argument and return as a longword integer. 


; ; VERSION: 1 
; ; HISTORY: 


; AUTHOR: 
Jonathan M. Taylor, 28-Jul-77: Version 0 


: MODIFIED BY: 
Steven B. Lionel, 19-Feb-1979: Version 2 
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HISTORY ; Detailed Current Edit History $28 Pa} 984 94:38:45 YATARTL. SRCIMTHININT. MAR; 1 
3 -SBTTL HISTORY ; Detailed Current Edit History 
09 i ; Edit History for Version 1 of MTHSJNINT 
0 : 5 03. = Renove MTHSFLAG_JACKET. TNH SJuly-78 
000 57 ; 1-001 - Vedage persion fhumber and c opyright notice. JBS 16-NOV-78 
0000 58 ; ee - Add "’."' to the PSECT directive. JBS 22-DEC-78 
0000 59 ; 1-003 = Add 19 to entry mask. SB 06 -Feb-79 
0000 60 ; 2-001 = Use CVTRFL. L 19-Feb 


re 


(eases asm 


a 4 


MTHSJNINT = Nearest Integer SEP=1984 AX/VMS Macro V04-00 P 
5-001 DECLARATIONS © Meee Tes T1iSS4F PANANES Bacte VOR TOO man:1 P28 6d) 
63 .SBTTL DECLARATIONS 
4; 
g : INCLUDE FILES: 
6 : NONE 
: EXTERNAL SYMBOLS: 
: NONE 
: MACROS: 
: NONE 


> PSECT DECLARATIONS: 
.PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 


oo 


S 
Soooooc[eo 


OWN STORAGE: 
NONT 


an 
OOOO UNE WI CO OONOAU EW O0O@ 


Oo 

ooooo 

Sss 

oo 
OOWWOOOOOWOWONNNNNNNNS 


ooo 
oooo 
oooo 


SoOOOCOCCOOOOOOOOOOOOSOOOOOOCOSOSOoO 2H 


OOOCOCCOCOCOOCOOOCO OOOO OOOOOOCOCOOOoOO -- 


Ssssss 
Cooooo 


0 
0 
0 
0 
0 
0 
0 
0 
0 


NNOMOOSCO 


go 19° 
return nearest integer as IN 6=-SEP-19 


3 


FUN — OOONAVUN EWN @ O ODNAUN EWN 0 OO NA UEFA OOONAUE 


WWINIWIWIROPOPOOPONONONONO 3 2 BQO ODO DOODOOOOOO 


Fs 3 4 > — 2 bs 2 2 8 — ds a bs a et a ss a ts te 


abs 9 1:36:18 PAs /yes Macro V04-00 


-SBTTL MTHSJNINT = return nearest integer as INTEGER*4 


++ 
FUNCTIONAL DESCRIPTION: 
MTHS 


NINT returns as its function value the INTEGER*4 
integer nearest its REAL*4 argument, rounded away from zero. 


; — SEQUENCE : 


earest_integer.wl.v = MTHSJNINT (arg.rf.r) 


INPUT PARAMETERS: 
; The 


input parameter is single-precision floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
; NONE 


FUNCTION VALUE: 


nearest_integer - trunc(arg + .5*sign(arg)) 


; SIDE EFFECTS: 


Reserved operand and integer overflow exceptions may occur. 


-ENTRY MTHSJNINT “M<IV> 
py yere. a4(aP), RO ; RO gets rounded argument 
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Symbol table 6-SEP-1984 11:2 MTHRTL.SRCJMTHJNINT .MAR; 1 (4) 
MTHSJNINT 00000000 RG 01 

Geo ooecoeceeosoeeoe} 

! Psect synopsis ! 

Geooeeeeeeeooeoocon$} 
PSECT name Allocation PSECT No. Attributes 


- ABS, 44444 ( 9. 89 ( -} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
MTHSCODE 000 ( ) ( 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 


ewe ener eee ceeces weet ecm ee $ 


Phase Page faults CPU Time Elapsed Time 


Initialization 38 1 :00: 
ey processing "3 3 :00: 
Syabol table sort 3 200: § if :00. 
Symbol table output 1 :00:00. :00:00. 
Psect syneests euteut 8 :00:00. 0:00: 
Cross-reference output Q: 3: 0. 0:00:00.00 
Assembler run totals 26 00:00:01. 0:00:10.60 


The working set Limit was 750 pages. 
7 3 pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space wd ee to hold 1 non-local and 0 Local symbols. 
134 source Lines were read in Pass 1, orogeste oS object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


een arn escecescecr scene ccenrcocscere + 


! ; Macro library statistics a. 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB;2 0 SS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LISS:MTHJNINT/OBJ=OBJS:MTHJNINT MSRCS$:MTHJNINT/UPDATE=(ENHS:MTHJNINT) 
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